home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g7.d64 / cards utility (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  72 lines
  1. 1 REM CARD PRINTING UTILITY
  2. 2 REM DAVID A. HOOK, 58 STEEL STREET
  3. 3 REM BARRIE, ONTARIO, L4M 2E9
  4. 4 REM SEE TRANSACTOR VOL II, #11
  5. 10 DATAA,2,3,4,5,6,7,8,9,10,J,Q,K
  6. 20 DATA,,,1,,,,1,,,,,,1,1,,,1,,,1,2,,,,,,2,2,,,1,,,2
  7. 30 DATA2,,,2,,,2,2,,1,,2,,2,2,,2,,2,,2,2,,2,1,2,,2,2,1,2,,2,1,2
  8. 40 DATA"[223][146] [169]  "," [146][188][167][186]   "," [161][146][169][169][146][223]  "
  9. 50 DATA" [166][169][214][146][169][166] ","  [223][146][169][169][146][161] "
  10. 60 DATA"  [167][208] [146][187] ","  [146][169] [223]","[169][208]   "," [146][169][194][170]   "," [146]    [187] "," [166][214][214][214][166] "
  11. 70 DATA" [188][146]     ","   [180][221][169] ","   [204][146][169]","[223][146]  [169] ","  [167] [166][194] "," [146][169]   [188] "
  12. 80 DATA" [166][191][191][191][166] "," [146][187]   [169] "," [221][166] [165]  "," [146][169]  [223]"
  13. 90 GOSUB40000
  14. 100 PRINT"[147]"TAB(10)"CARD UTILITY":PRINT"1. DISPLAY CARDS":PRINT"2. SHUFFLE
  15. 110 [153]"3. SUBROUTINE FOR GAMES":[153]"4. QUIT":[153]"SELECTION  ?";
  16. 120 [161]Z$:[139]Z$[178]""[167]120
  17. 130 Z[178][197](Z$):[153]Z:[139]Z[179]1[176]Z[177]4[167]100
  18. 140 [139]Z[178]4[167][128]
  19. 150 [145]Z[141]42000,41000,43000:[153]"DONE--HIT A KEY
  20. 160 GETZ$:IFZ$=""THEN160
  21. 170 GOTO100
  22. 14998 END
  23. 14999 REM INPUT SBR
  24. 15000 INPUT"  [166][157][157][157]";Z$:IFZ$="[166]"THEN15000
  25. 15010 Z=VAL(Z$):RETURN
  26. 39999 REM INITIALIZATION
  27. 40000 I=RND(-TI*1E9):J=0:D%=0:J%=0:K%=0
  28. 40010 INPUT"NUMBER OF DECKS   1[157][157][157]";D%
  29. 40020 DIMD%(D%*52):FORI=1TOD%:FORJ=0TO51:D%(52*(I-1)+J)=J:NEXTJ,I:D%=D%*52-1
  30. 40030 DIMI$(13):FORI=1TO13:READI$(I):NEXTI
  31. 40040 S1$="   [216]   [218]   [211]   [193]   ":S2$=" [216]   [216] [218]   [218] [211]   [211] [193]   [193] "
  32. 40050 DIMS$(2,3):FORI=0TO3:S$(0,I)="       ":S$(1,I)=MID$(S1$,I*4+1,7)
  33. 40060 S$(2,I)=MID$(S2$,I*6+1,7):NEXTI
  34. 40070 DIMS%(10,7):FORI=1TO10:FORJ=1TO7:READS%(I,J):NEXTJ,I
  35. 40080 DIMF$(3,7):FORI=1TO3:FORJ=1TO7:READF$(I,J):NEXTJ,I
  36. 40090 RETURN
  37. 40999 REM SHUFFLE
  38. 41000 FORI=0TOD%:J%=(D%+1-I)*RND(1):K%=D%(J%)
  39. 41010 D%(J%)=D%(D%-I):D%(D%-I)=K%:NEXTI:RETURN
  40. 41999 REM DISPLAY ALL CARDS
  41. 42000 PRINT"[147]":C%=0:FORL=0TOD%:C%=C%+1:
  42. 42010 S%=D%(C%-1)/13:V%=D%(C%-1)-13*S%+1
  43. 42020 L%=7:A%=5:TB%=0
  44. 42030 IFL/A%=INT(L/A%)THENT%=TB%:PRINTLEFT$("[147]",L%):GOTO42050
  45. 42040 T%=T%+8:PRINT"[145][145][145][145][145][145][145][145][145]";
  46. 42050 PRINTTAB(T%)""LEFT$(I$(V%)+"      ",7):FORJ=1TO7
  47. 42060 IFV%>10THEN42500
  48. 42070 PRINTTAB(T%)""S$(S%(V%,J),S%):GOTO42750
  49. 42500 IFJ=1THENPRINTTAB(T%)" "MID$("[216][218][211][193]",S%+1,1)F$(V%-10,J):GOTO42750
  50. 42510 IFJ=7THENPRINTTAB(T%)""F$(V%-10,J)""MID$("[216][218][211][193]",S%+1,1)" ":GOTO42750
  51. 42520 PRINTTAB(T%)""F$(V%-10,J)
  52. 42750 NEXTJ:PRINTTAB(T%)""RIGHT$("      "+I$(V%),7)
  53. 42800 NEXTL:RETURN
  54. 42999 REM GAME-TYPE SUBROUTINE
  55. 43000 PRINT"[147]HOW MANY CARDS TO PRINT";:GOSUB15000:P%=Z
  56. 43010 PRINT"START ON LINE (1-16)";:GOSUB15000:L%=Z
  57. 43020 PRINT"HOW MANY ACROSS (1-5)";:GOSUB15000:A%=Z
  58. 43030 PRINT"START AT TAB (0-32)";:GOSUB15000:TB%=Z
  59. 43040 M%=D%+1:PRINT"SHUFFLE AFTER (1-"M%")";:GOSUB15000:M%=Z
  60. 43100 PRINT"[147]":C%=0:FORL=0TOP%-1:C%=C%+1:IFC%=M%+1THENC%=1:GOSUB41000
  61. 43130 S%=D%(C%-1)/13:V%=D%(C%-1)-13*S%+1
  62. 43140 IFL/A%=INT(L/A%)THENT%=TB%:PRINTLEFT$("[147]",L%):GOTO43160
  63. 43150 T%=T%+8:PRINT"[145][145][145][145][145][145][145][145][145]";
  64. 43160 PRINTTAB(T%)""LEFT$(I$(V%)+"      ",7):FORJ=1TO7
  65. 43170 IFV%>10THEN43500
  66. 43250 PRINTTAB(T%)""S$(S%(V%,J),S%):GOTO43750
  67. 43500 IFJ=1THENPRINTTAB(T%)" "MID$("[216][218][211][193]",S%+1,1)F$(V%-10,J):GOTO43750
  68. 43510 IFJ=7THENPRINTTAB(T%)""F$(V%-10,J)""MID$("[216][218][211][193]",S%+1,1)" ":GOTO43750
  69. 43520 PRINTTAB(T%)""F$(V%-10,J)
  70. 43750 NEXTJ:PRINTTAB(T%)""RIGHT$("      "+I$(V%),7)
  71. 43800 NEXTL:RETURN
  72.